home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / A_Connect_2019789142006.psc / Connect 4 / frmAI.frm < prev    next >
Text File  |  2005-10-21  |  5KB  |  170 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmAI 
  4.    BackColor       =   &H00FFC0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "AI Settings"
  7.    ClientHeight    =   3405
  8.    ClientLeft      =   45
  9.    ClientTop       =   435
  10.    ClientWidth     =   3870
  11.    Icon            =   "frmAI.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3405
  16.    ScaleWidth      =   3870
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton Command1 
  20.       Caption         =   "OK"
  21.       Height          =   375
  22.       Left            =   1080
  23.       TabIndex        =   9
  24.       Top             =   2880
  25.       Width           =   1455
  26.    End
  27.    Begin MSComctlLib.Slider Slider1 
  28.       Height          =   375
  29.       Left            =   240
  30.       TabIndex        =   6
  31.       Top             =   2160
  32.       Width           =   3495
  33.       _ExtentX        =   6165
  34.       _ExtentY        =   661
  35.       _Version        =   393216
  36.       BorderStyle     =   1
  37.       LargeChange     =   3
  38.       Max             =   3
  39.    End
  40.    Begin VB.Frame Frame1 
  41.       BackColor       =   &H00FFC0C0&
  42.       Caption         =   "Search depth"
  43.       Height          =   1455
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   120
  47.       Width           =   3615
  48.       Begin VB.VScrollBar VScroll2 
  49.          Height          =   315
  50.          Left            =   2880
  51.          Max             =   1
  52.          Min             =   180
  53.          TabIndex        =   4
  54.          Top             =   840
  55.          Value           =   1
  56.          Width           =   255
  57.       End
  58.       Begin VB.VScrollBar VScroll1 
  59.          Height          =   315
  60.          Left            =   2880
  61.          Max             =   1
  62.          Min             =   30
  63.          TabIndex        =   3
  64.          Top             =   360
  65.          Value           =   1
  66.          Width           =   255
  67.       End
  68.       Begin VB.TextBox Text2 
  69.          Height          =   315
  70.          Left            =   1920
  71.          TabIndex        =   2
  72.          Top             =   840
  73.          Width           =   975
  74.       End
  75.       Begin VB.TextBox Text1 
  76.          Height          =   315
  77.          Left            =   1920
  78.          TabIndex        =   1
  79.          Top             =   360
  80.          Width           =   975
  81.       End
  82.       Begin VB.Label Label5 
  83.          BackStyle       =   0  'Transparent
  84.          Caption         =   "Time limit (seconds):"
  85.          Height          =   255
  86.          Left            =   120
  87.          TabIndex        =   11
  88.          Top             =   840
  89.          Width           =   1575
  90.       End
  91.       Begin VB.Label Label4 
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "Maximum depth:"
  94.          Height          =   255
  95.          Left            =   120
  96.          TabIndex        =   10
  97.          Top             =   360
  98.          Width           =   1695
  99.       End
  100.    End
  101.    Begin VB.Label Label3 
  102.       BackColor       =   &H00FF8080&
  103.       BackStyle       =   0  'Transparent
  104.       Caption         =   "Full"
  105.       Height          =   255
  106.       Left            =   3480
  107.       TabIndex        =   8
  108.       Top             =   2640
  109.       Width           =   495
  110.    End
  111.    Begin VB.Label Label2 
  112.       BackColor       =   &H00FF8080&
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "None"
  115.       Height          =   255
  116.       Left            =   120
  117.       TabIndex        =   7
  118.       Top             =   2640
  119.       Width           =   615
  120.    End
  121.    Begin VB.Label Label1 
  122.       BackColor       =   &H00FF8080&
  123.       BackStyle       =   0  'Transparent
  124.       Caption         =   "Evaluation function:"
  125.       Height          =   255
  126.       Left            =   240
  127.       TabIndex        =   5
  128.       Top             =   1800
  129.       Width           =   1575
  130.    End
  131. End
  132. Attribute VB_Name = "frmAI"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137.  
  138. Private Sub Command1_Click()
  139. Unload Me
  140. End Sub
  141.  
  142. Private Sub Form_Load()
  143. Text1.Text = DepthLimit
  144. VScroll1.Value = Val(Text1.Text)
  145. Text2.Text = TimeLimit
  146. VScroll2.Value = Val(Text2.Text)
  147. Slider1.Value = EvalFunc
  148. End Sub
  149.  
  150. Private Sub Form_Unload(Cancel As Integer)
  151. Text1.Text = Val(Text1.Text)
  152. Text2.Text = Val(Text2.Text)
  153. If Val(Text1.Text) < 1 Then Text1.Text = 1
  154. If Val(Text2.Text) < 1 Then Text2.Text = 1
  155. If Val(Text1.Text) > 30 Then Text1.Text = 30
  156. If Val(Text2.Text) > 180 Then Text2.Text = 180
  157.  
  158. DepthLimit = Val(Text1.Text)
  159. TimeLimit = Val(Text2.Text)
  160. EvalFunc = Slider1.Value
  161. End Sub
  162.  
  163. Private Sub VScroll1_Change()
  164. Text1.Text = VScroll1.Value
  165. End Sub
  166.  
  167. Private Sub VScroll2_Change()
  168. Text2.Text = VScroll2.Value
  169. End Sub
  170.